home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_093 / microemacs / doc / trand.cmd < prev   
OS/2 REXX Batch file  |  1992-05-06  |  467b  |  24 lines
  1.     set %try 0
  2.     set %sum 0
  3.     insert-string "Rolls: "
  4. *nextry
  5.     set %roll &rnd 100
  6.     !if &greater $curcol 70
  7.         newline
  8.         insert-string "       "
  9.     !endif
  10.     set %sum &add %sum %roll
  11.     insert-string &cat %roll " "
  12.     update-screen
  13.     set %try &add %try 1
  14.     !if &less %try 300
  15.         !goto nextry
  16.     !endif
  17.  
  18.     newline
  19.     newline
  20.     insert-string &cat &cat "Sum of rolls: " %sum "~n"
  21.     insert-string &cat &cat "Average roll: " &div %sum 300 "~n"
  22.     update-screen
  23.     unmark-buffer
  24.